home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 5 (Internal Edition) / Apple R&P Lib Internal v5.0.iso / 6-Developer Demos / Developer Demos-Ed. / Macintosh School® CD-ROM Demo / Macintosh SchoolÆ CD-ROM Demo / card_57796.txt < prev    next >
Text File  |  1990-08-14  |  16KB  |  724 lines
  1. -- card: 57796 from stack: in
  2. -- bmap block id: 58001
  3. -- flags: 4000
  4. -- background id: 2609
  5. -- name: Bundle Pricing
  6. ----- HyperTalk script -----
  7. on openCard
  8.   global bundlePricing
  9.   put "True" into bundlePricing
  10. end openCard
  11.  
  12. on groupOne
  13.   repeat with index = 1 to 5
  14.     set hilite of card button index to false
  15.   end repeat
  16.   set hilite of target to true
  17.   getPrice short name of target
  18. end groupOne
  19.  
  20. on getPrice bundle
  21.   lock screen
  22.   set cursor to watch
  23.   put numtochar of 18 into card field "Attendance"
  24.   put numtochar of 18 into card field "Report Cards"
  25.   put numtochar of 18 into card field "Marks"
  26.   put numtochar of 18 into card field "Scheduling"
  27.   put numtochar of 18 into card field "Library"
  28.   put numtochar of 18 into card field "Advance Booking"
  29.   put numtochar of 18 into card field "ASCII Transfer"
  30.   put numtochar of 18 into card field "Scanning"
  31.   put numtochar of 18 into card field "Query"
  32.   put numtochar of 18 into card field "School Setup"
  33.   put numtochar of 18 into card field "Student Details"
  34.   put numtochar of 18 into card field "Teacher Details"
  35.   put numtochar of 18 into card field "Course Details"
  36.   put numtochar of 18 into card field "Guidance"
  37.   put numtochar of 18 into card field "Health Records"
  38.   put numtochar of 18 into card field "Report Manager"
  39.   if not hilite of button "Multi-user" then
  40.     if bundle is "Bundle A" then
  41.       put card field "Bundle A" into card field "Price"
  42.       put empty into card field "Advance Booking"
  43.     end if
  44.     if bundle is "Bundle B" then
  45.       put card field "Bundle B" into card field "Price"
  46.       put empty into card field "Advance Booking"
  47.       put empty into card field "Health Records"
  48.     end if
  49.     if bundle is "Bundle #1" then
  50.       put card field "Mini #1" into card field "Price"
  51.       put empty into card field "Scheduling"
  52.       put empty into card field "Library"
  53.       put empty into card field "Advance Booking"
  54.       put empty into card field "ASCII Transfer"
  55.       put empty into card field "Scanning"
  56.       put empty into card field "Guidance"
  57.       put empty into card field "Health Records"
  58.     end if
  59.     if bundle is "Bundle #2" then
  60.       put card field "Mini #2" into card field "Price"
  61.       put empty into card field "Library"
  62.       put empty into card field "Advance Booking"
  63.     end if
  64.     if bundle is "Bundle #3" then
  65.       put card field "Mini #3" into card field "Price"
  66.       put empty into card field "Scheduling"
  67.       put empty into card field "Advance Booking"
  68.     end if
  69.   else
  70.     if bundle is "Bundle A" then
  71.       put card field "MBundle A" into card field "Price"
  72.       put empty into card field "Advance Booking"
  73.     end if
  74.     if bundle is "Bundle B" then
  75.       put card field "MBundle B" into card field "Price"
  76.       put empty into card field "Advance Booking"
  77.       put empty into card field "Health Records"
  78.     end if
  79.     if bundle is "Bundle #1" then
  80.       put card field "MMini #1" into card field "Price"
  81.       put empty into card field "Scheduling"
  82.       put empty into card field "Library"
  83.       put empty into card field "Advance Booking"
  84.       put empty into card field "ASCII Transfer"
  85.       put empty into card field "Scanning"
  86.       put empty into card field "Guidance"
  87.       put empty into card field "Health Records"
  88.     end if
  89.     if bundle is "Bundle #2" then
  90.       put card field "MMini #2" into card field "Price"
  91.       put empty into card field "Library"
  92.       put empty into card field "Advance Booking"
  93.     end if
  94.     if bundle is "Bundle #3" then
  95.       put card field "MMini #3" into card field "Price"
  96.       put empty into card field "Scheduling"
  97.       put empty into card field "Advance Booking"
  98.     end if
  99.   end if
  100. end getPrice
  101.  
  102. on resetCard
  103.   repeat with buttonNum = 1 to the number of card buttons
  104.     set hilite of button buttonNum to false
  105.   end repeat
  106.   repeat with fieldNum = 1 to 17
  107.     put empty into card field fieldNum
  108.   end repeat
  109. end resetCard
  110.  
  111. on showFields
  112.   repeat with index = 19 to the number of card fields
  113.     show card field index
  114.     set lockText of card field index to false
  115.   end repeat
  116. end showFields
  117.  
  118. on hideFields
  119.   repeat with index = 19 to the number of card fields
  120.     hide card field index
  121.     set lockText of card field index to true
  122.   end repeat
  123. end hideFields
  124.  
  125.  
  126.  
  127. -- part 1 (button)
  128. -- low flags: 00
  129. -- high flags: 8006
  130. -- rect: left=19 top=85 right=103 bottom=111
  131. -- title width / last selected line: 0
  132. -- icon id / first selected line: 0 / 0
  133. -- text alignment: 1
  134. -- font id: 0
  135. -- text size: 12
  136. -- style flags: 0
  137. -- line height: 16
  138. -- part name: Bundle A
  139. ----- HyperTalk script -----
  140. on mouseUp
  141.   groupOne
  142. end mouseUp
  143.  
  144.  
  145.  
  146. -- part 2 (button)
  147. -- low flags: 00
  148. -- high flags: 8006
  149. -- rect: left=114 top=85 right=103 bottom=206
  150. -- title width / last selected line: 0
  151. -- icon id / first selected line: 0 / 0
  152. -- text alignment: 1
  153. -- font id: 0
  154. -- text size: 12
  155. -- style flags: 0
  156. -- line height: 16
  157. -- part name: Bundle B
  158. ----- HyperTalk script -----
  159. on mouseUp
  160.   groupOne
  161. end mouseUp
  162.  
  163.  
  164.  
  165. -- part 3 (button)
  166. -- low flags: 00
  167. -- high flags: 8006
  168. -- rect: left=209 top=85 right=103 bottom=301
  169. -- title width / last selected line: 0
  170. -- icon id / first selected line: 0 / 0
  171. -- text alignment: 1
  172. -- font id: 0
  173. -- text size: 12
  174. -- style flags: 0
  175. -- line height: 16
  176. -- part name: Bundle #1
  177. ----- HyperTalk script -----
  178. on mouseUp
  179.   groupOne
  180. end mouseUp
  181.  
  182.  
  183.  
  184. -- part 4 (button)
  185. -- low flags: 00
  186. -- high flags: 8006
  187. -- rect: left=304 top=85 right=103 bottom=396
  188. -- title width / last selected line: 0
  189. -- icon id / first selected line: 0 / 0
  190. -- text alignment: 1
  191. -- font id: 0
  192. -- text size: 12
  193. -- style flags: 0
  194. -- line height: 16
  195. -- part name: Bundle #2
  196. ----- HyperTalk script -----
  197. on mouseUp
  198.   groupOne
  199. end mouseUp
  200.  
  201.  
  202.  
  203. -- part 5 (button)
  204. -- low flags: 00
  205. -- high flags: 8006
  206. -- rect: left=399 top=85 right=103 bottom=491
  207. -- title width / last selected line: 0
  208. -- icon id / first selected line: 0 / 0
  209. -- text alignment: 1
  210. -- font id: 0
  211. -- text size: 12
  212. -- style flags: 0
  213. -- line height: 16
  214. -- part name: Bundle #3
  215. ----- HyperTalk script -----
  216. on mouseUp
  217.   groupOne
  218. end mouseUp
  219.  
  220.  
  221.  
  222. -- part 6 (button)
  223. -- low flags: 00
  224. -- high flags: A005
  225. -- rect: left=209 top=111 right=129 bottom=308
  226. -- title width / last selected line: 0
  227. -- icon id / first selected line: 0 / 0
  228. -- text alignment: 1
  229. -- font id: 0
  230. -- text size: 12
  231. -- style flags: 0
  232. -- line height: 16
  233. -- part name: Multi-user
  234. ----- HyperTalk script -----
  235. on mouseUp
  236.   repeat with index = 1 to 5
  237.     if hilite of card button index then
  238.       getPrice short name of card button index
  239.       exit repeat
  240.     end if
  241.   end repeat
  242. end mouseUp
  243.  
  244.  
  245. -- part 7 (field)
  246. -- low flags: 01
  247. -- high flags: 0000
  248. -- rect: left=400 top=273 right=291 bottom=442
  249. -- title width / last selected line: 0
  250. -- icon id / first selected line: 0 / 0
  251. -- text alignment: 65535
  252. -- font id: 3
  253. -- text size: 12
  254. -- style flags: 0
  255. -- line height: 16
  256. -- part name: Price
  257.  
  258.  
  259. -- part 8 (field)
  260. -- low flags: 01
  261. -- high flags: 0000
  262. -- rect: left=42 top=163 right=179 bottom=63
  263. -- title width / last selected line: 0
  264. -- icon id / first selected line: 0 / 0
  265. -- text alignment: 1
  266. -- font id: 0
  267. -- text size: 12
  268. -- style flags: 0
  269. -- line height: 16
  270. -- part name: Attendance
  271.  
  272.  
  273. -- part 9 (field)
  274. -- low flags: 01
  275. -- high flags: 0000
  276. -- rect: left=42 top=184 right=200 bottom=63
  277. -- title width / last selected line: 0
  278. -- icon id / first selected line: 0 / 0
  279. -- text alignment: 1
  280. -- font id: 0
  281. -- text size: 12
  282. -- style flags: 0
  283. -- line height: 16
  284. -- part name: Report Cards
  285.  
  286.  
  287. -- part 10 (field)
  288. -- low flags: 01
  289. -- high flags: 0000
  290. -- rect: left=42 top=205 right=221 bottom=63
  291. -- title width / last selected line: 0
  292. -- icon id / first selected line: 0 / 0
  293. -- text alignment: 1
  294. -- font id: 0
  295. -- text size: 12
  296. -- style flags: 0
  297. -- line height: 16
  298. -- part name: Marks
  299.  
  300.  
  301. -- part 11 (field)
  302. -- low flags: 01
  303. -- high flags: 0000
  304. -- rect: left=42 top=226 right=242 bottom=63
  305. -- title width / last selected line: 0
  306. -- icon id / first selected line: 0 / 0
  307. -- text alignment: 1
  308. -- font id: 0
  309. -- text size: 12
  310. -- style flags: 0
  311. -- line height: 16
  312. -- part name: School Setup
  313.  
  314.  
  315. -- part 12 (field)
  316. -- low flags: 01
  317. -- high flags: 0000
  318. -- rect: left=42 top=247 right=263 bottom=63
  319. -- title width / last selected line: 0
  320. -- icon id / first selected line: 0 / 0
  321. -- text alignment: 1
  322. -- font id: 0
  323. -- text size: 12
  324. -- style flags: 0
  325. -- line height: 16
  326. -- part name: Student Details
  327.  
  328.  
  329. -- part 13 (field)
  330. -- low flags: 01
  331. -- high flags: 0000
  332. -- rect: left=42 top=268 right=284 bottom=63
  333. -- title width / last selected line: 0
  334. -- icon id / first selected line: 0 / 0
  335. -- text alignment: 1
  336. -- font id: 0
  337. -- text size: 12
  338. -- style flags: 0
  339. -- line height: 16
  340. -- part name: Report Manager
  341.  
  342.  
  343. -- part 14 (field)
  344. -- low flags: 01
  345. -- high flags: 0000
  346. -- rect: left=178 top=163 right=179 bottom=199
  347. -- title width / last selected line: 0
  348. -- icon id / first selected line: 0 / 0
  349. -- text alignment: 1
  350. -- font id: 0
  351. -- text size: 12
  352. -- style flags: 0
  353. -- line height: 16
  354. -- part name: Scheduling
  355.  
  356.  
  357. -- part 15 (field)
  358. -- low flags: 01
  359. -- high flags: 0000
  360. -- rect: left=178 top=184 right=200 bottom=199
  361. -- title width / last selected line: 0
  362. -- icon id / first selected line: 0 / 0
  363. -- text alignment: 1
  364. -- font id: 0
  365. -- text size: 12
  366. -- style flags: 0
  367. -- line height: 16
  368. -- part name: Library
  369.  
  370.  
  371. -- part 16 (field)
  372. -- low flags: 01
  373. -- high flags: 0000
  374. -- rect: left=178 top=205 right=221 bottom=199
  375. -- title width / last selected line: 0
  376. -- icon id / first selected line: 0 / 0
  377. -- text alignment: 1
  378. -- font id: 0
  379. -- text size: 12
  380. -- style flags: 0
  381. -- line height: 16
  382. -- part name: Advance Booking
  383.  
  384.  
  385. -- part 17 (field)
  386. -- low flags: 01
  387. -- high flags: 0000
  388. -- rect: left=178 top=226 right=242 bottom=199
  389. -- title width / last selected line: 0
  390. -- icon id / first selected line: 0 / 0
  391. -- text alignment: 1
  392. -- font id: 0
  393. -- text size: 12
  394. -- style flags: 0
  395. -- line height: 16
  396. -- part name: Teacher Details
  397.  
  398.  
  399. -- part 18 (field)
  400. -- low flags: 01
  401. -- high flags: 0000
  402. -- rect: left=178 top=247 right=263 bottom=199
  403. -- title width / last selected line: 0
  404. -- icon id / first selected line: 0 / 0
  405. -- text alignment: 1
  406. -- font id: 0
  407. -- text size: 12
  408. -- style flags: 0
  409. -- line height: 16
  410. -- part name: Course Details
  411.  
  412.  
  413. -- part 19 (field)
  414. -- low flags: 01
  415. -- high flags: 0000
  416. -- rect: left=317 top=163 right=179 bottom=338
  417. -- title width / last selected line: 0
  418. -- icon id / first selected line: 0 / 0
  419. -- text alignment: 1
  420. -- font id: 0
  421. -- text size: 12
  422. -- style flags: 0
  423. -- line height: 16
  424. -- part name: ASCII Transfer
  425.  
  426.  
  427. -- part 20 (field)
  428. -- low flags: 01
  429. -- high flags: 0000
  430. -- rect: left=317 top=184 right=200 bottom=338
  431. -- title width / last selected line: 0
  432. -- icon id / first selected line: 0 / 0
  433. -- text alignment: 1
  434. -- font id: 0
  435. -- text size: 12
  436. -- style flags: 0
  437. -- line height: 16
  438. -- part name: Scanning
  439.  
  440.  
  441. -- part 21 (field)
  442. -- low flags: 01
  443. -- high flags: 0000
  444. -- rect: left=317 top=205 right=221 bottom=338
  445. -- title width / last selected line: 0
  446. -- icon id / first selected line: 0 / 0
  447. -- text alignment: 1
  448. -- font id: 0
  449. -- text size: 12
  450. -- style flags: 0
  451. -- line height: 16
  452. -- part name: Query
  453.  
  454.  
  455. -- part 22 (field)
  456. -- low flags: 01
  457. -- high flags: 0000
  458. -- rect: left=317 top=226 right=242 bottom=338
  459. -- title width / last selected line: 0
  460. -- icon id / first selected line: 0 / 0
  461. -- text alignment: 1
  462. -- font id: 0
  463. -- text size: 12
  464. -- style flags: 0
  465. -- line height: 16
  466. -- part name: Guidance
  467.  
  468.  
  469. -- part 23 (field)
  470. -- low flags: 01
  471. -- high flags: 0000
  472. -- rect: left=317 top=247 right=263 bottom=338
  473. -- title width / last selected line: 0
  474. -- icon id / first selected line: 0 / 0
  475. -- text alignment: 1
  476. -- font id: 0
  477. -- text size: 12
  478. -- style flags: 0
  479. -- line height: 16
  480. -- part name: Health Records
  481.  
  482.  
  483. -- part 24 (field)
  484. -- low flags: 01
  485. -- high flags: 0000
  486. -- rect: left=58 top=295 right=334 bottom=406
  487. -- title width / last selected line: 0
  488. -- icon id / first selected line: 0 / 0
  489. -- text alignment: 0
  490. -- font id: 4
  491. -- text size: 9
  492. -- style flags: 0
  493. -- line height: 12
  494. -- part name: Note
  495.  
  496.  
  497. -- part 25 (field)
  498. -- low flags: 81
  499. -- high flags: 0000
  500. -- rect: left=7 top=125 right=138 bottom=39
  501. -- title width / last selected line: 0
  502. -- icon id / first selected line: 0 / 0
  503. -- text alignment: 0
  504. -- font id: 4
  505. -- text size: 9
  506. -- style flags: 0
  507. -- line height: 12
  508. -- part name: MBundle A
  509.  
  510.  
  511. -- part 26 (field)
  512. -- low flags: 81
  513. -- high flags: 0000
  514. -- rect: left=7 top=137 right=150 bottom=39
  515. -- title width / last selected line: 0
  516. -- icon id / first selected line: 0 / 0
  517. -- text alignment: 0
  518. -- font id: 4
  519. -- text size: 9
  520. -- style flags: 0
  521. -- line height: 12
  522. -- part name: MBundle B
  523.  
  524.  
  525. -- part 27 (field)
  526. -- low flags: 81
  527. -- high flags: 0000
  528. -- rect: left=7 top=149 right=162 bottom=39
  529. -- title width / last selected line: 0
  530. -- icon id / first selected line: 0 / 0
  531. -- text alignment: 0
  532. -- font id: 4
  533. -- text size: 9
  534. -- style flags: 0
  535. -- line height: 12
  536. -- part name: MMini #1
  537.  
  538.  
  539. -- part 28 (field)
  540. -- low flags: 81
  541. -- high flags: 0000
  542. -- rect: left=7 top=161 right=174 bottom=39
  543. -- title width / last selected line: 0
  544. -- icon id / first selected line: 0 / 0
  545. -- text alignment: 0
  546. -- font id: 4
  547. -- text size: 9
  548. -- style flags: 0
  549. -- line height: 12
  550. -- part name: MMini #2
  551.  
  552.  
  553. -- part 29 (field)
  554. -- low flags: 81
  555. -- high flags: 0000
  556. -- rect: left=7 top=173 right=186 bottom=39
  557. -- title width / last selected line: 0
  558. -- icon id / first selected line: 0 / 0
  559. -- text alignment: 0
  560. -- font id: 4
  561. -- text size: 9
  562. -- style flags: 0
  563. -- line height: 12
  564. -- part name: MMini #3
  565.  
  566.  
  567. -- part 30 (field)
  568. -- low flags: 81
  569. -- high flags: 0000
  570. -- rect: left=473 top=125 right=138 bottom=505
  571. -- title width / last selected line: 0
  572. -- icon id / first selected line: 0 / 0
  573. -- text alignment: 0
  574. -- font id: 4
  575. -- text size: 9
  576. -- style flags: 0
  577. -- line height: 12
  578. -- part name: Bundle A
  579.  
  580.  
  581. -- part 31 (field)
  582. -- low flags: 81
  583. -- high flags: 0000
  584. -- rect: left=473 top=137 right=150 bottom=505
  585. -- title width / last selected line: 0
  586. -- icon id / first selected line: 0 / 0
  587. -- text alignment: 0
  588. -- font id: 4
  589. -- text size: 9
  590. -- style flags: 0
  591. -- line height: 12
  592. -- part name: Bundle B
  593.  
  594.  
  595. -- part 32 (field)
  596. -- low flags: 81
  597. -- high flags: 0000
  598. -- rect: left=473 top=149 right=162 bottom=505
  599. -- title width / last selected line: 0
  600. -- icon id / first selected line: 0 / 0
  601. -- text alignment: 0
  602. -- font id: 4
  603. -- text size: 9
  604. -- style flags: 0
  605. -- line height: 12
  606. -- part name: Mini #1
  607.  
  608.  
  609. -- part 33 (field)
  610. -- low flags: 81
  611. -- high flags: 0000
  612. -- rect: left=473 top=161 right=174 bottom=505
  613. -- title width / last selected line: 0
  614. -- icon id / first selected line: 0 / 0
  615. -- text alignment: 0
  616. -- font id: 4
  617. -- text size: 9
  618. -- style flags: 0
  619. -- line height: 12
  620. -- part name: Mini #2
  621.  
  622.  
  623. -- part 34 (field)
  624. -- low flags: 81
  625. -- high flags: 0000
  626. -- rect: left=473 top=173 right=186 bottom=505
  627. -- title width / last selected line: 0
  628. -- icon id / first selected line: 0 / 0
  629. -- text alignment: 0
  630. -- font id: 4
  631. -- text size: 9
  632. -- style flags: 0
  633. -- line height: 12
  634. -- part name: Mini #3
  635.  
  636.  
  637. -- part 35 (button)
  638. -- low flags: 00
  639. -- high flags: 8000
  640. -- rect: left=28 top=25 right=42 bottom=246
  641. -- title width / last selected line: 0
  642. -- icon id / first selected line: 0 / 0
  643. -- text alignment: 1
  644. -- font id: 0
  645. -- text size: 12
  646. -- style flags: 0
  647. -- line height: 16
  648. -- part name: Individual Module Pricing
  649. ----- HyperTalk script -----
  650. on mouseUp
  651.   go prev
  652. end mouseUp
  653.  
  654.  
  655.  
  656. -- part 36 (button)
  657. -- low flags: 00
  658. -- high flags: 2000
  659. -- rect: left=470 top=299 right=334 bottom=504
  660. -- title width / last selected line: 0
  661. -- icon id / first selected line: 5053 / 5053
  662. -- text alignment: 1
  663. -- font id: 0
  664. -- text size: 12
  665. -- style flags: 0
  666. -- line height: 16
  667. -- part name: Return
  668. ----- HyperTalk script -----
  669. on mouseUp
  670.   lock screen
  671.   resetCard
  672.   go prev
  673.   send "resetCard" to this card
  674.   go to card "Demo Shell" of this background
  675.   unlock screen with iris close
  676. end mouseUp
  677.  
  678.  
  679.  
  680. -- part contents for card part 24
  681. ----- text -----
  682. Note: Multiple school site license pricing is available.
  683.       Contact Chancery Software for more information.
  684.       Prices are in effect until June 1991.
  685.  
  686. -- part contents for card part 25
  687. ----- text -----
  688. 4200
  689.  
  690. -- part contents for card part 27
  691. ----- text -----
  692. 2400
  693.  
  694. -- part contents for card part 28
  695. ----- text -----
  696. 3750
  697.  
  698. -- part contents for card part 29
  699. ----- text -----
  700. 3200
  701.  
  702. -- part contents for card part 30
  703. ----- text -----
  704. 3600
  705.  
  706. -- part contents for card part 32
  707. ----- text -----
  708. 1950
  709.  
  710. -- part contents for card part 33
  711. ----- text -----
  712. 3300
  713.  
  714. -- part contents for card part 34
  715. ----- text -----
  716. 2800
  717.  
  718. -- part contents for card part 26
  719. ----- text -----
  720. 3900
  721.  
  722. -- part contents for card part 31
  723. ----- text -----
  724. 3300